home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr48
/
pasclern.zip
/
LABELS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-04-01
|
512b
|
27 lines
PROGRAM label_illustration;
LABEL 274,repeat_loop,help,dog;
VAR counter : BYTE; (* This limits us to a maximum of 255 *)
BEGIN
WRITELN('Start here and go to "help"');
GOTO help;
dog:
WRITELN('Now go and end this silly program');
GOTO 274;
repeat_loop:
FOR counter := 1 TO 4 DO WRITELN('In the repeat loop');
GOTO dog;
help:
WRITELN('This is the help section that does nothing');
GOTO repeat_loop;
274:
WRITELN('This is the end of this spaghetti code');
END.